home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / MandelZot 4.0.1 Folder / MandelZot 4.0.1 / MandelZot 4.0.1.rsrc / STR#_146.txt < prev    next >
Text File  |  1994-02-06  |  888b  |  27 lines
  1. /myimagemtx [iw 0 0 ih 0 0] def
  2.  
  3. /expstr shortstr1 length 3 mul string def
  4.  
  5. /shortstr2 32 string def
  6.  
  7. /shortstr1 32 string def
  8.  
  9. systemdict /setcmykcolor known {/doimage /cimage load def} {/doimage /bwimage load def} ifelse
  10.  
  11. /cimage {iw ih 8 myimagemtx {currentfile shortstr1 readhexstring pop currentfile shortstr2 readhexstring pop pop colorexpand} false 3 colorimage} bind def
  12.  
  13. /bwimage {iw ih 8 myimagemtx {currentfile shortstr1 readhexstring pop pop currentfile shortstr2 readhexstring pop} image} bind def
  14.  
  15. /colorexpand {expstr 0 rgbclut 3 copy 7 -1 roll {get putinterval exch 3 add exch 3 copy} forall pop pop pop pop pop} bind def
  16.  
  17. % Modified 5/26/89 by Dave Platt
  18.  
  19. % Used by permission of David Gelphman, Adobe Systems Incorporated.
  20.  
  21. % Copyright 1989 Adobe Systems Incorporated. All rights reserved.
  22.  
  23. % Author David Gelphman, Adobe Systems
  24.  
  25. % Monday, January 16, 1989 1:10:27 PM
  26.  
  27.